home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / nledvb10.zip / FORM1.FRM < prev    next >
Text File  |  1996-04-09  |  6KB  |  227 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "LED Test Form"
  4.    ClientHeight    =   4500
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6675
  8.    Height          =   4905
  9.    Left            =   1110
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4500
  12.    ScaleWidth      =   6675
  13.    Top             =   1170
  14.    Width           =   6795
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Change"
  17.       Height          =   375
  18.       Left            =   5520
  19.       TabIndex        =   13
  20.       Top             =   3240
  21.       Width           =   975
  22.    End
  23.    Begin VB.TextBox Text2 
  24.       Height          =   285
  25.       Left            =   3960
  26.       TabIndex        =   12
  27.       Text            =   "0"
  28.       Top             =   3240
  29.       Width           =   1335
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "Change"
  33.       Height          =   375
  34.       Left            =   5520
  35.       TabIndex        =   3
  36.       Top             =   720
  37.       Width           =   975
  38.    End
  39.    Begin VB.TextBox Text1 
  40.       Height          =   285
  41.       Left            =   3960
  42.       TabIndex        =   2
  43.       Text            =   "0"
  44.       Top             =   720
  45.       Width           =   1335
  46.    End
  47.    Begin NEDLED.LED1 LED15 
  48.       Height          =   255
  49.       Left            =   240
  50.       TabIndex        =   11
  51.       Top             =   4080
  52.       Width           =   1575
  53.       _Version        =   65536
  54.       _ExtentX        =   2778
  55.       _ExtentY        =   450
  56.       _StockProps     =   0
  57.       ForeColor       =   65280
  58.       BackColor       =   8388608
  59.       LeadingZero     =   0   'False
  60.       DecimalPosition =   5
  61.    End
  62.    Begin NEDLED.LED1 LED14 
  63.       Height          =   255
  64.       Left            =   240
  65.       TabIndex        =   10
  66.       Top             =   3720
  67.       Width           =   1575
  68.       _Version        =   65536
  69.       _ExtentX        =   2778
  70.       _ExtentY        =   450
  71.       _StockProps     =   0
  72.       ForeColor       =   0
  73.       BackColor       =   12632256
  74.       DecimalPosition =   1
  75.    End
  76.    Begin NEDLED.LED1 LED13 
  77.       Height          =   255
  78.       Left            =   240
  79.       TabIndex        =   9
  80.       Top             =   3360
  81.       Width           =   1575
  82.       _Version        =   65536
  83.       _ExtentX        =   2778
  84.       _ExtentY        =   450
  85.       _StockProps     =   0
  86.       DecimalPosition =   2
  87.    End
  88.    Begin NEDLED.LED1 LED12 
  89.       Height          =   255
  90.       Left            =   240
  91.       TabIndex        =   8
  92.       Top             =   3000
  93.       Width           =   1575
  94.       _Version        =   65536
  95.       _ExtentX        =   2778
  96.       _ExtentY        =   450
  97.       _StockProps     =   0
  98.       NumPositions    =   6
  99.       LeadingZero     =   0   'False
  100.       ShowDecimal     =   0   'False
  101.    End
  102.    Begin VB.Line Line1 
  103.       X1              =   0
  104.       X2              =   6720
  105.       Y1              =   2520
  106.       Y2              =   2520
  107.    End
  108.    Begin NEDLED.LED2 LED24 
  109.       Height          =   375
  110.       Left            =   240
  111.       TabIndex        =   7
  112.       Top             =   1080
  113.       Width           =   3135
  114.       _Version        =   65536
  115.       _ExtentX        =   5530
  116.       _ExtentY        =   661
  117.       _StockProps     =   0
  118.       Value           =   0
  119.       HighliteColor   =   8421504
  120.       ShadowColor     =   16777215
  121.       NumSegments     =   15
  122.       Direction       =   0   'False
  123.       RoundSegment    =   -1  'True
  124.    End
  125.    Begin NEDLED.LED2 LED23 
  126.       Height          =   2295
  127.       Left            =   3480
  128.       TabIndex        =   6
  129.       Top             =   120
  130.       Width           =   375
  131.       _Version        =   65536
  132.       _ExtentX        =   661
  133.       _ExtentY        =   4048
  134.       _StockProps     =   0
  135.       Value           =   0
  136.       LightColor      =   16776960
  137.       LightColor      =   16776960
  138.       LightColor      =   16776960
  139.       LightColor      =   8388608
  140.       DarkColor       =   8388608
  141.       LightColor      =   8388608
  142.       InnerSpace      =   2
  143.       NumSegments     =   13
  144.       LEDType         =   -1  'True
  145.       RoundSegment    =   -1  'True
  146.    End
  147.    Begin NEDLED.LED2 LED22 
  148.       Height          =   375
  149.       Left            =   240
  150.       TabIndex        =   5
  151.       Top             =   600
  152.       Width           =   3135
  153.       _Version        =   65536
  154.       _ExtentX        =   5530
  155.       _ExtentY        =   661
  156.       _StockProps     =   0
  157.       Value           =   0
  158.    End
  159.    Begin VB.Label Label1 
  160.       Caption         =   "Analog meter range 0 - 100"
  161.       Height          =   255
  162.       Left            =   3960
  163.       TabIndex        =   4
  164.       Top             =   360
  165.       Width           =   2295
  166.    End
  167.    Begin NEDLED.LED2 LED21 
  168.       Height          =   375
  169.       Left            =   240
  170.       TabIndex        =   1
  171.       Top             =   120
  172.       Width           =   3135
  173.       _Version        =   65536
  174.       _ExtentX        =   5530
  175.       _ExtentY        =   661
  176.       _StockProps     =   0
  177.       Value           =   0
  178.       LoBound         =   3
  179.       HiBound         =   11
  180.       BackColor       =   0
  181.       HighliteColor   =   0
  182.       ShadowColor     =   0
  183.       LightColor      =   32768
  184.       LightColor      =   0
  185.       DarkColor       =   0
  186.       LightColor      =   0
  187.       NumSegments     =   18
  188.    End
  189.    Begin NEDLED.LED1 LED11 
  190.       Height          =   255
  191.       Left            =   240
  192.       TabIndex        =   0
  193.       Top             =   2640
  194.       Width           =   1575
  195.       _Version        =   65536
  196.       _ExtentX        =   2778
  197.       _ExtentY        =   450
  198.       _StockProps     =   0
  199.    End
  200. End
  201. Attribute VB_Name = "Form1"
  202. Attribute VB_Creatable = False
  203. Attribute VB_Exposed = False
  204. Private Sub VScroll1_Change()
  205. LED21.Value = VScroll1.Value
  206. LED11.Value = VScroll1.Value
  207. End Sub
  208.  
  209.  
  210. Private Sub Command1_Click()
  211. LED21.Value = Text1.Text
  212. LED22.Value = Text1.Text
  213. LED23.Value = Text1.Text
  214. LED24.Value = Text1.Text
  215. End Sub
  216.  
  217.  
  218. Private Sub Command2_Click()
  219. LED11.Value = Text2.Text
  220. LED12.Value = Text2.Text
  221. LED13.Value = Text2.Text
  222. LED14.Value = Text2.Text
  223. LED15.Value = Text2.Text
  224. End Sub
  225.  
  226.  
  227.